5 GOSUB6:POKE792,116:POKE793,164:GOSUB9998:GOTO5000:--RESET,RS-TASTE,TEST+START
6 ::SYS64931:SYS58784:SYS64917:SYS58651:::SYS64789:SYS58346:::REM---RESET PRG
7 :POKE.,47:POKE24,.:SYS62255:SYS58451:SYS43957:SYS60911:POKE198,.:RETURN:--NORM
8 ::A$="BASIC-PRAXIS 1.1":OPEN1,8,15,"S:"+A$:CLOSE1:SAVEA$,8:RETURN:---SAVE-PRG:
9 ====SPEICHER====================
10 B=128:REM---BINAERZAHL AUSGEBEN(A)
11 :Z$(.)=".":Z$(1)="1":FORI=.TO7:PRINTZ$(-((AANDB)>.));:B=B/2:NEXT:RETURN:    :
12 :REM---BITS(0-7)UND NEGATION(255-BIT)
13 :B(7)=128:B(6)=64:B(5)=32:B(4)=16:B(3)=8:B(2)=4:B(1)=2:B(0)=1:
14 :FORI=.TO7:N(I)=255-B(I):NEXT:RETURN:
15 :REM---BITS SETZEN/LOESCHEN(P,I)
16 :POKE P,PEEK(P)OR B(I):RETURN:
17 :POKE P,PEEK(P)ANDN(I):RETURN:
18 :POKE P,PEEK(P)ANDNORB:RETURN:
19 ===FUNKTIONEN=================
20 :REM---ZAHLENKORREKTUR/RUNDEN/MODULO
21 :DEFFN K(A)=VAL(STR$(A)):
22 :DEFFN R(A)=FNK(INT(A*100+.5)/100)
23 :DEFFN M(A)=A-INT(FNK(A/M))*M
25 :REM---2-BYTE PEEK/ZUFALLS-ZAHLEN
26 :DEFFN P(A)=PEEK(A)+PEEK(A+1)*256
27 :DEFFN Z(A)=INT(RND(1)*A)+1
29 :
30 :REM---JOYSTICK/TASTEN-ABFRAGE
31 :DEFFN J(A)=31-PEEK(56320+A)AND31
32 :DEFFNT(A)=64-PEEK(203)+PEEK(653)/10
33 :DEFFN TT(A)=FNP(245)+PEEK(203):
34 :REM---CURSOR POSITION/CURSOR PEEK
35 :DEFFN C(A)=FNP(209)+POS(.)+A
36 :DEFFN CP(A)=PEEK(FNC(A))
37 :
40 :REM---FARBCODE NACH ASCII-CODE
41 :DEFFN FA(A)=PEEK(59610+(AAND15))
42 :DEFFN FF(A)=FNFA(PEEK(646))
43 :
44 :REM---SCHIRM/ASCII-CODE
45 :DEFFN S0(A)=A-(A<32)*64-(A>63)*32-(A>95)*32::DEFFN SA(A)=FNS0(AAND127)
46 :DEFFN AS(A)=A+(A>63)*64-(A>95ANDA<128)*32+(A>191)*64+(A=255)*33
47 :
48 :R$=CHR$(13):H$=CHR$(34)::GOTO3951:  :
49 ===GRUNDLAGEN===============
50 :REM---TASTENABFRAGE-VARIANTEN(A$)
51 :GOSUB54:GETA$:RETURN:
52 :GOSUB54:SYS61758:A=PEEK(780):RETURN
53 :GOSUB54:A=PEEK(631):RETURN:
54 POKE649,1:POKE198,.:WAIT198,1:RETURN
55 ::::::::::::GOTO902:
56 :POKE786,168:POKE785,163:SYS47083(X),USR(.):---GOTO(X)
57 :A=2048:A%=A/256:POKE781,A-A%*256:POKE782,A%:SYS47078:---GOTO ADRESSE
58 :SYS42638:REM---GOTO PRG-ANFANG
59 :POKE780,167:POKE782,174:SYS42625:END:--KEIN RETURN,STAPEL INIT
60 :REM---RESTORE ADRESSE(A)
61 :POKE66,INT((A-1)/256):POKE65,A-PEEK(66)*256-1:
62 :DEFFNL(A)=PEEK(61)+PEEK(62)*256+1:RETURN:---ZEILEN-ADRESSE
63 :GOSUB602:DIM L(20):GOSUB62:
64 :L(1)=FNL(.)::DATA"NAME 1",1,2
65 :L(2)=FNL(.)::DATA"NAME 2",2,3
66 :RETURN:
67 :REM"---[193][213][198][210][213][198]:
68 :[141]63:A[178]L(2):[141]60:[135] A$,A,B:[153]""A$,A,B:[142]:
69 :                                    :
70 :[141]75:[137]77:[143]--SPRITE INPUT(A$)
71 :X[178][185](.):Y[178][194](214):X[178]X[171][181](X[173]40)[172]40:C[178]X[172]8[170]24:A[178]1:[151]VC[170]39,[194](646)
72 :[151]VC,C[175]255:[151]VC[170]16,[171](C[177][178]256):[151]VC[170]1,Y[172]8[170]43:I[178].:[151]VC[170]21,A:
73 :[161]A$:[139]A$[178]""[167]:I[178]I[170]1:[145]1[171](I[178]15)[137]73:A[178]1[171]A:[137]72:
74 :A%[178][198](A$)[173]32:[151]VC[170]21,.:[151]212,.:[142]:      :
75 :B[178]11:A[178]([194](648)[175]192)[172]256[170]B[172]64:BR[178][194](648)[172]256:VC[178]53248:P[178][185](X)
76 :[129]I[178]A[164]I[170]63:[151]I,.:[130]:[151]A[170]45,255:[151]A[170]42,255:[151]BR[170]1016,B:[142]::::
77 ::[141]71:[139][168](A$[178][199](13)[176]A$[178]"ON"[176]A$[178]"")[167]:[153]A$;:[137]77:
78 :[158]58882:[151]211,P:A$[178]"":[159]1,3:[129]I[178]P[164][194](200)[171]1:[161]#1,B$:A$[178]A$[170]B$:[130]
79 :[160]1:[153]:[142]:[171][171][171]EINLESEN    :
80 :P[178]0:[143]--JOY & TASTEN-ABFRAGE(P,A$)
81 :[161]A$:J[178]31[171][194](56320[170]P)[175]31:[145][171](J[178].[175]A$[178]"")[137]81:[139]J[178].[167]:[142]
82 :[139]J[175]4[167]:A$[178]"CMD":[142]
83 :[139]J[175]8[167]:A$[178]"":[142]
84 :[139]J[175]2[167]:A$[178]"":[142]
85 :[139]J[175]1[167]:A$[178]"ON":[142]
86 :A$[178][199](13):[142]:[171][171][171]FEUERKNOPF
87 :
88 :[153]" CMD";A$;"(null)CMD";:[141]80:[145][171](A$[179][177]R$)[137]88:[142]:
89 :
90 :[143]---INPUT MIT SONDERZEICHEN(A$)
91 :A$[178]"":A[178][185](.):[158]42336:[129]I[178]512[164]511[170][194](200)[171]A:A$[178]A$[170][199]([194](I)):[130]
92 :A[178][197](A$):[153]""A$,A:[142]:
93 :
94 :
99 [178][178][178][178][164]N[173]MUSIK[178][178][178][178][178][178][178][178][178][178][178][178][178][178][178][178][178]
100 :N[178].:[143]----TON(L,F,T,W,A,H,G,N,S)
101 :SD[178]54272:[129]IG[178]1[164]N:[141]102:[141]110:[141]105:[130]:[142]:
102 :SX[178]SM[172]7:[151]SD[170]SX[170]2,(T[171][181](T))[172]1001:[151]SD[170]SX[170]3,T:
103 :[151]SD[170]22,G:[151]SD[170]21,(G[171][181](G))[172]1001:[151]SD[170]SX,(F[171][181](F))[172]1001:
104 :[151]SD[170]SX[170]1,F:[151]SD[170]SX[170]6,H:[151]SD[170]SX[170]5,A:[151]SD[170]24,L:[151]SD[170]SX[170]4,W:[142]:
105 :[151]SD[170]SM[172]7[170]5,.:[151]SD[170]SM[172]7[170]4,.:[142]:[171][171][171][164]N AUS
106 :SD[178]54272:[151]SD[170]4,.:[151]SD[170]11,.:[151]SD[170]18,.:[151]SD[170]24,.:[142]:[171][171]ALLES AUS
108 :
110 :[143]---WAIT SECONDS(S)
111 :[129]IH[178].[164]S[172]900:[130]:[142]:
112 [129]IH[178]TI[164]IH[170]S[172]60:IH[178]TI:[130]:[142]
113 :
120 :[143]---AUFRUF
121 :W[178]65:F[178]30:N[178]11:S[178].2:
122 :SM[178]0:L[178]15:T[178]25.25:H[178]255:G[178]0:A[178]15:[141]101:[141]106:[142]:
129 :
148 :
150 :SID[178]54272:[143]----TONMODUL VARIABLEN
151 :F [178] SID[170]0[171]1: [164]NHOEHE([184]QUENZ)
152 :T [178] SID[170]2[171]3: TASTVERHAELTNIS(W[178]65)
153 :W [178] SID[170]4  : WEL[195]ART([164]NART)
154 :A [178] SID[170]5  : AB[170]ANSCHWELL[171]ZEIT
155 :H [178] SID[170]6  : [164]NFUELLE[170]HALTE[171]PEGEL
156 :SM[178] .....  : STIMME(0[171]2)
157 :S [178] .....  : SEKUNDEN
158 :N [178] .....  : WIEDERHOLZAHL
159 :
160 :G [178]SID[170]21[171]2: GRENZ[184]QUENZ
161 :R [178] SID[170]23 : RES[145]ANZ [170] FILTERART
162 :L [178] SID[170]24 : LAUT[171]LEISE[170]FILTER[171]EIN
163 :
164 :O [178](SID[170]27): OSZILA[164]R  STIMME 3
165 :K [178](SID[170]28): HUELLKURVE STIMME 3
166 :
167 :
198 :
199 [178][178][178][178]SPRITES[178][178][178][178][178][178][178][178][178][178][178][178][178][178][178][178][178][178][178]
200 :[143]--SPRITE EIN(X,Y,F,A,P,NR,NB)
201 :[141]222:[143]---AUS+VARIABLEN
202 :[141]216:[141]213:[141]203:[137]210:
203 :[143]---POS(X,Y)
204 :Q[178]V[170]2[172]NR:[151]Q[170]1,Y:[151]Q,X[175]255
205 :[151]V[170]16,[194](V[170]16)[175]N(NR)[176][171](X[178][177]256)[172]2[174]NR:[151]Q[170]1,Y:[142]:
210 :[141]224:[143]--AN,PRIO.,BLK(A,P,NB)
211 :[151]BS[170]1016[170]NR,NB:[151]V[170]27,[194](V[170]27)[175]N(NR)[176]P[172]2[174]NR
212 :[151]V[170]21,[194](V[170]21)[175]N(NR)[176]A[172]2[174]NR:[142]:
213 :::[143]---MULTICOLOR,FARBEN(M,F2,F3)
214 :[151]V[170]28,[194](V[170]28)[175]N(NR)[176]M[172]2[174]NR::[151]V[170]37,F2:[151]V[170]38,F3:
215 :[151]V[170]39[170]NR,F:[142]:[171][171][171]FARBE(F)
216 :::[143]---EXPAND(S,W)
217 :[151]V[170]23,[194](V[170]23)[175]N(NR)[176]S[172]2[174]NR:[151]V[170]29,[194](V[170]29)[175]N(NR)[176]W[172]2[174]NR
218 :[142]:
219 :
220 :[143]---SPRITEDATA-INSTALL(NR,NB)
221 :[141]60:[141]225:[129]I[178].[164]63:[135]H:[151]NA[170]I,H:[130]:[151]BS[170]1016[170]NR,NB:[142]
222 :[143]---SPRITE RESET/VARINIT
223 :[141]224:[151]V[170]21,.:[151]V[170]23,.:[151]V[170]29,.:[129]I[178]V[164]V[170]16:[151]I,.:[130]:[142]
224 B[178]1:[129]I[178].[164]7:N(I)[178]255[171]B:B[178]B[170]B:[130]
225 :BS[178][194](648)[172]256:VS[178]([194](648)[175]192)[172]256:NA[178]VS[170]NB[172]64:V[178]53248:[142]
229 :
230 :[143]---SPRITE BEIWERTE LES/SETZ
234 :B[178][194](NA[170]63):M[178][180](B[175]128):W[178][180](B[175]64):S[178][180](B[175]32):F[178]B[175]15:[142]
235 :[151]NA[170]63,F[170]M[172]128[170]W[172]64[170]S[172]32:[142]
238 :
239 :
240 :[143]---SPRITES GLEICHZEITIG SETZEN
241 :[143]---VIC-TABELLE(60600)
242 :V[178]60600:[141]204:V[178]53248:[142]:[171][171][171][171][171][171]SCHREIB
243 :Z[178]16:[151]781,Z:[158]58794:[142]:[171][171][171][171][171][171][171]SETZ
244 :
250 :[141]280:[143]---SPRITE-STEUERUNG
251 :X[178]100:Y[178]100:F[178]1:V[178]53248:[151]V[170]21,.:[151]V[170]27,([194](V[170]27)[175]254):[151]V[170]39,F:
252 :[141]274:[151]V[170]27,.:[151]V[170]21,1:
260 :[141]274:KS[178][194](V[170]31)[176][194](V[170]30):[139]KS[137]261:[143]---SPRITE KOLLISION
261 :XV[178]X:YV[178]Y:[141]270:[143]---JOYSTICK
262 :K[178]K[171]2[172](K[179]4)[171]4[172](K[177]3[175]K[179]8):[139]J[179][177]JV[167]:K[178]K[173]1.5
263 :X[178]X[170]JR[172]K:[139]X[179]15[176]X[177]330[167]:X[178]15[171]315[172](X[177]15):K[178].
264 :Y[178]Y[170]JU[172]K:[139]Y[179]42[176]Y[177]235[167]:Y[178]42[171]193[172](Y[177]42):K[178].
265 :[145]1[170]JF[137]260:[151]V[170]21,0:[142]
266 :
270 :P[178].:JV[178]J:[143]---GET JOYSTICK
271 :J[178]31[171][194](56320[170]P)[175]31:[139]J[178].[167]:K[178]J:[137]271:
272 :JU[178][180]((J[175]2)[171](J[175]1)):JR[178][180]((J[175]8)[171](J[175]4)):JF[178][171](J[177]15):[142]:
274 :[151]V[170]1,Y:[151]V,X[175]255:[151]V[170]16,[171](X[177][178]256):[151]V[170]1,Y:[142]:[171][171][171]SET SPRITE
275 :
280 :[143]---SPRITE DATAS
281 :[141]62:A[178][165]L(.):NR[178].:NB[178]11:[141]220:[142]
282 [131]255,255,255,255,255,255,192,64,12,96,128,112,48,129,192,25,3,,14,6,
283 [131]6,6,,3,6,,1,134,,,231,,,99,,,51,128,,25,128,,13,128,,7,128,,3,128,,
284 [131]128,,,,,,,,,,1
285 :
299 [178][178][178]K[145]FIGURATI[145][178][178][178][178][178][178][178][178][178][178][178][178][178][178]
300 [171][171]ROM[173]RAM,SCHIRM(52224),SATZ(53248)
301 [151]56334,.:[151]1,51:[129]I[178]88[164]91:[151]I,.:[130]:[151]781,97:[151]782,.:[158]41971
302 :[151]53248[170]32[172]8[170]4,32:[143]---INST.
303 :[151]1,53:[151]56334,1:[151]648,204:[158]58692:[151]56576,196:[151]53272,52:[142]
310 :[141]60:[143]---SUPER DATA-POKE
311 :C[178][194](1):[151]56334,.:[151]1,51:[141]312:[151]1,C:[151]56334,1:[142]
312 :[129]A[178].[164]65535:[135]B:[139]B[177][178].[175]B[179]256[167]:[151]A,B:[137]314:
313 :A[178][182](B)[171]1:[139]B[179].[167]:A[178]A[170]66000[172][171](B[177][171]1):[139]B[179][171]255[167]:[158][182](B)
314 :[130]:[142]:
317 :
320 :[143]"(null)EICHEN-ATNDR.BERECHNEN+POKEN(8B)
321 :Z=32:ZS=53248::A=ZS+8*Z:PRINTA
322 :GOSUB311:DATA53504,,,,32,,,,,-.1
325 :RETURN:
326 :
330 :POKE53272,PEEK(53272)AND240OR(A*2):RETURN:---ZEICHENSATZ SCHALTEN(0-7)
331 :POKE53272,PEEK(53272)AND15ORA*16:POKE648,PEEK(648)AND240ORA*4:RETURN:SCHIRM
340 "[203][207][206][198][201][199][213][210][193][212][201][207][206] DES [211]PEICHERS EIN-
341 "STELLEN:
342 :POKE1,55:REM--I/O,BASIC+KERNAL ROM
343 :POKE1,54:REM--I/O,BASIC RAM,K. ROM
344 :POKE1,53:REM--I/O,BASIC+KERNAL RAM
345 :POKE1,52:REM--64 KB IM RAM
346 :POKE1,51:REM--ZEICHEN ROM(53248)
347 :POKE1,48:REM--64 KB IM RAM
349 :
350 :REM---:SCHIRM(35840),SATZ(36864)
351 :GOSUB354:POKE648,140:SYS58692:POKE56576,197:POKE53272,52:RETURN:
352 :POKE648,4:SYS58692:REM---STANDARD
353 :POKE56576,199:POKE53272,23:POKE53265,27:RETURN:
354 :A=32768:REM---SPEICHER BEGRENZEN
355 :A%=A/256:A=A-A%*256:POKE51,A:POKE52,A%:POKE55,A:POKE56,A%:RETURN:
356 :
398 :
399 ===SPEICHER KOPIEREN===========
400 :REM---EINZELKOPIE(A,E,N)
401 :FORI=.TOE-A:POKEN+I,PEEK(A+I):NEXT::RETURN:
404 :REM---STRING IN SPEICHER(A,A$)
405 :FORI=.TOLEN(A$)-1:POKEA+I,ASC(MID$(A$,I+1)):NEXT:RETURN:
406 :REM---TASTENPUFFER BESCHREIBEN(A$)
407 A=631:GOSUB405:POKE198,I-1:POKE211,.:POKE213,79:SYS42107
408 :
409 :
410 :CS=46728:REM---STRING-COPY(A,N,B)
412 :H=256::A%=N/H:POKE53,N-A%*H:POKE54,A%:A%=A/H:POKE782,A%:POKE781,A-A%*H
413 :POKE780,B:SYSCS:RETURN
419 :
430 CA=41960:REM---HOCH-COPY(A,E,N)
431 POKE56334,.:POKE1,51:GOSUB432:POKE1,55:POKE56334,1:RETURN:---ZEICHENCOPY
432 H=256:B=E-A:C=INT(B/H)*H:E=A+C:N=N+C:A%=E/H:POKE90,E-A%*H:POKE91,A%:A%=N/H
433 POKE88,N-A%*H:POKE89,A%:POKE781,C/H+1:POKE782,(B-C+1)AND255:SYSCA+4:RETURN
438 :
439 :
440 CB=42206:REM---RUNTER COPY(A,E,N)
441 GOSUB442:GOSUB443:POKECB+2,34:POKECB+9,35:POKECB+15,32:RETURN
442 POKECB+2,88:POKECB+9,89:POKECB+15,96:RETURN
443 :::H=256:B=E-A:B%=B/H:B=B-B%*H+1:B=B+H*(B>.):C=N+B:A=A+B:
444 A%=A/H:POKE88,A-A%*H:POKE89,A%:A%=C/H:POKE36,C-A%*H:POKE37,A%:
445 POKE782,(H-B)AND255:POKE781,B%+1:SYSCB:RETURN:
446 CB=42206:FORI=.TO14:POKEN+I,PEEK(CB+I):NEXT:CB=N:GOTO442:---INSTALL(N)
448 :
449 :
450 RS=828:REM--RAM-SPRUNG/USR-RAM-PEEK   (LESEN/SCHREIBEN/AUSFUEHREN DES RAMS)
451 :A%=RS/256:POKE209,RS-A%*256:POKE210,A%:POKE211,.:POKE213,79
452 :PRINT"H[184]E[146]I%[146]A[200]%[146]BE[146]A%[146]I PCE[146]I[168]E[146]A%[146]I([160]";:REM---SPRUNG(25B)
453 :PRINT"%[146]U[200]%[146]T[200] [183]7%[146]AE[146]I [146]0[184]D[146]A [146]@1[146]T$[146]ID[146]A[216][204]Z8":REM---PEEK(30B)
454 :A=RS+25:A%=A/256:POKE785,A-A%*256:POKE786,A%
455 :CO=48:REM---VEKTOR & CONFIG(V,CO)
456 :POKERS+7,169:POKERS+8,CO:A%=V/256:POKERS+14,V-A%*256:POKERS+15,A%:RETURN
457 :
460 :REM---RAM LESEN/SCHREIBEN
461 :GOSUB450:P=USR(A):RETURN:---LES A
462 POKE56334,.:POKE1,51:POKEA,B:POKE1,55:POKE56334,1:RETURN:--SCHREIB A,B
463 :
464 :
465 :
499 ===SCHIRM ROLLEN==============
500 A=.:E=24:REM-SEITEN-SCROLL H/R(A,K)
501 :H=217+A:A=A-1AND255:IFK<.GOTO503
502 :H=H+1:FORJ=1TOK:POKEH,PEEK(H)OR128:POKE214,E:PRINT"[145]":NEXT:RETURN
503 :FORJ=1TO-K:POKE214,A:SYS59749:POKEH,PEEK(H)OR128:NEXT:RETURN
509 :
510 :REM---ROLL HOCH/RUNTER(A,E,K)
511 :POKE214,A:A$="":B$="[145]":IFE<ATHEN:A$=B$:B$="":B=A:A=E:E=B
512 :FORJ=1TOABS(K):FORI=1TOABS(E-A):PRINTA$;:POKE172,PEEK(209)
513 :POKE173,PEEK(210):PRINTB$;:SYS59855:PRINTA$;:NEXT:NEXT:RETURN:
519 :
520 :GOSUB1825:REM--LINKS/RECHTS(A,E,K)
521 :POKE59385,.:POKE211,.:M=(E-A)*3
522 :FORI=1TOABS(K):POKE214,A:SYS58640:GOSUB523:NEXT:POKE59385,4:RETURN:
523 IFK>.THEN:PRINTLEFT$(SR$,M);:RETURN
524 :PRINTLEFT$(SL$,M);:RETURN:
525 :A$="[148] "+R$:L=75:GOSUB600:SR$=A$:A$=""+CHR$(20)+R$:GOSUB600:SL$=A$:RETURN
598 :
599 =====STRING OPERATIONEN=======
600 :REM---STRING GEN(A$,L)
601 :A$=A$+A$:ON-(LEN(A$)*2<L)GOTO601:A$=A$+LEFT$(A$,L-LEN(A$)):RETURN:
602 :POKE49,PEEK(47):POKE50,PEEK(48):RETURN:---FELDER LOESCH
609 :
610 :REM---SET-STRING(A,L)
611 :GOSUB614:POKEV,L:POKEV+1,A-INT(A/256)*256:POKEV+2,A/256:RETURN:
612 :GOSUB613:SYSA:RETURN:--SYS-STRING
613 :GOSUB614:L=PEEK(V):A=PEEK(V+1)+PEEK(V+2)*256:RETURN:---STR.ADRESSE/LAENGE
614 :POKE32,PEEK(71):POKE33,PEEK(72):V=PEEK(32)+PEEK(33)*256:RETURN:---VAR-ADR
615 :
617 X$="":A=1024+80:L=20:C=LEN(X$):GOSUB610:PRINTX$:RETURN:---AUFRUF SET-STRING
619 :
620 B$=" ":REM---BASIC-STRING(A$,B$)
621 :P=511:GOSUB623:POKEP+Q,.:A$=B$:P=630:GOSUB623:GOSUB622:SYS58451:RETURN
622 :POKE768,212:POKE769,168:POKE781,255:POKE782,1:SYS42118:
623 :FORQ=1TOLEN(A$):POKEP+Q,ASC(MID$(A$,Q)):NEXT:POKE198,LEN(A$):RETURN:
625 :REM---LISTEN UND NACHLADEN-DEMO
626 :A$="LIST 625":GOSUB620::RETURN:
627 H$=CHR$(34):A$=":L[207]"+H$+"BASIC*"+H$+",8":B$="RUN:"+CHR$(13):GOTO621:
628 :
629 :
640 :N=50:REM---FELD LOESCHEN+FUELLEN
641 :POKE49,PEEK(47):POKE50,PEEK(48):
642 :DIM D$(1,N),G(N):PRINT"FUELLEN":DEFFN R(A)=RND(1)*25+64:
643 :FORI=1TON:D$(.,I)=CHR$(FNR(.))+CHR$(FNR(.))+CHR$(FNR(.)):NEXT:RETURN:
644 :
650 :REM     ZEIGER SORT       ----     :::::---(PRINZIP:SUCH KLEINSTEN)
651 :PRINT"[147]ZEIGER SORT"
652 Z=N:FORJ=1TON:IFZ<=JGOTO656:
653 X=N:Z=N:A$=D$(.,N):FORI=NTOJSTEP-1:IF(D$(.,I)<=A$)THEN:X=I:A$=D$(.,X):Z=Z-1
654 :NEXT::IFX>JTHEN:FORH=.TO1:H$=D$(H,J):D$(H,J)=D$(H,X):D$(H,X)=H$:NEXT:
655 :
656 :GETA$:IFA$>""THEN:WAIT198,1:GETA$:IFA$="[136]"THEN:J=N+2:GOTO658:---WART
657 :PRINT""J"[146]"D$(.,J)"..."D$(1,J)
658 :NEXT:RETURN:
659 :
660 :REM----SUPER-ZEIGER-SORT(N,D$(X,Y))
662 J=N:Z=N:G(Z)=N:PRINT"SUPER ZEIGER"
663 :FORA=1TON:ON-(Z<A)GOTO668:Z=Z-(Z<N):ON-(J<A)GOTO667:ON-(Z<N)GOTO665:H=A:
664 J=N:FORK=ATON:K=K-(D$(.,N)>=D$(.,K)ORK>H+15)*N:A=K:ON-(A<N)GOSUB670:NEXT:A=H
665 A$=D$(.,G(Z)):FORJ=J+(J=N)TOASTEP-1:IFD$(.,J)<=A$THENA$=D$(.,J):Z=Z-1:G(Z)=J
666 :NEXT:REM---SUCHEN
667 :J=G(Z):ON-(J>A)GOSUB670
668 :GOSUB671:NEXT:RETURN:
669 :
670 :FORI=.TO1:A$=D$(I,A):D$(I,A)=D$(I,J ):D$(I,J)=A$:NEXT:RETURN:---TAUSCH
671 :GETA$:IF(A$>"")THEN:WAIT198,1:GETA$:IFA$="[136]"THEN:A=A+N:RETURN:---WARTEN
672 :PRINT""A"[146]"D$(.,A)"..."D$(1,A)"":RETURN:---AUSGABE
673 :
674 :
699 ====LADEN UND SPEICHERN========
700 :REM---BASIC-PRG LADEN(A$)
701 :DEFFNP(A)=PEEK(A)+PEEK(A+1)*256:GOSUB9999:GOSUB710:IFST<>64THEN:RETURN:
702 :POKE45,PEEK(174):POKE46,PEEK(175):SYS42291:RUN:
703 :REM---BASIC-PRG SPEICHERN(A$)
704 :DEFFNP(A)=PEEK(A)+PEEK(A+1)*256:GOSUB9999:E=E-1:GOSUB714:RETURN:
710 :REM---PRG-LOAD(A$,A)
712 :H=256:SYS(57812)A$,8,.:POKE780,.:A%=A/H:POKE782,A%:POKE781,A-A%*H:
713 :POKE157,.:SYS62622:SYS60911:RETURN
714 :REM---PRG-SAVE(A$,A,E)
716 :H=256:SYS(57812)"@0:"+A$,8:A%=A/H:POKE194,A%:POKE193,A-A%*H
717 :B=E+1:A%=B/H:POKE175,A%:POKE174,B-A%*H:POKE157,.:SYS62957:RETURN
719 :
720 :REM--PRG ABSCHNEIDEN
721 :GOSUB9998:POKEA,.:POKEA+1,.:A=A+2
722 :POKE32,A/256:POKE31,A-PEEK(32)*256:POKE45,PEEK(31):POKE46,PEEK(32):RETURN
728 :
729 :
730 :REM---DEMO
731 :GOSUB733:PRINT"SPEICHERN,LOESCH,";:A$="X2":GOSUB703:GOSUB720:CLR
732 :GOSUB733:PRINT"LADEN";:A$="X2":GOSUB700:RUN
733 :PRINT"ANZEIGEN":A=10000:E=A:GOSUB910:GOSUB50:PRINT:RETURN:
734 :
750 :REM---LADE-PRG+PUFFER(P$)INSTALL
751 PU=51968:V2=710:Z=-13:L=.::FORI=.TO17:POKEV2+I,PEEK(42336+I):NEXT:V2=V2+14
752 ::POKEV2-8,ABS(Z):POKEV2-6,8*-(Z>=.):POKEV2+3,96:POKEV2+1,208:REM--CODE(Z)
753 ::PH=INT(PU/256):PL=PU-PH*256:POKEV2-4,PL:POKEV2-3,PH:REM---PUFFER(PU,P$,L)
754 :P$="":POKE32,PEEK(71):POKE33,PEEK(72):V1=PEEK(32)+PEEK(33)*256:REM--STRING
755 :POKEV1,L:POKEV1+1,PL:POKEV1+2,PH
756 :RETURN:
759 :
760 :REM---SPEICHERN/LADEN DEMO
761 :N$="XX"::OPEN1,8,1,"@0:"+N$+",S,W"
762 :PRINT"S,";:A$="TEST":B$="OK":PRINT#1,CHR$(LEN(A$));A$;B$:CLOSE1:PRINT"L:";
763 :OPEN1,8,.,N$+",S,R":GOSUB750:
764 :A$="":POKE781,1:SYS65478:GOSUB770:A$=P$:SYS65484:INPUT#1,B$:CLOSE1:RETURN:
769 :
770 :SYS61758:L=PEEK(780):POKEV1,L:IFL=.THEN:RETURN:---STRING LADEN
771 :POKEV2,L:SYSV2-14:RETURN:
772 :
773 :
774 :
799 ==GRAFIK-CONFIG===============
800 :REM---GRAFIK-LOESCH+EIN(CG,F,L,M)
801 :CG=4:F=15+0*16:L=0:M=0::GOSUB805:
802 :POKE1,55:GOSUB810:REM---LOESCH
803 :A=BR:E=A+998:N=A+1:POKEA,F:GOSUB443::A=GR:E=A+7998:N=A+1:POKEA,L:GOSUB443
804 :GOTO820:
805 :GOSUB450:N=RS+55:GOSUB446:V=CB:CB=RS:GOSUB455:RETURN:---INST.COPY+PEEK
809 :
810 :REM---GRAFIK-CONFIG(CG=1-4)
811 :IFCG=1THEN:BR=1024::GR=8192::V=1:
812 :IFCG=2THEN:BR=23552:GR=24576:V=7:
813 :IFCG=3THEN:BR=35840:GR=40960:V=3:
814 :IFCG=4THEN:BR=51200:GR=57344:V=2:
815 :G=1:BL=1024:GL=BL*8:ZZ=.:ZS=53248:B=128:FORI=.TO7:B(I)=B:B=B/2:NEXT:RETURN
819 :
820 :GOSUB810:REM---GRAFIK EIN/AUS
821 POKE1,55:POKE53265,11:P=56576:POKEP,(PEEK(P)AND252)OR(3-INT(GR/(GL*2)))
822 P=53272:POKE2,PEEK(P):POKEP,G*8+V*16:POKE53270,M*16+200:POKE53265,59:RETURN
825 :POKE53265,11:GOTO352:--GRAPHIK AUS
827 :
828 :
830 :REM---LINIE(X1,Y1,X2,Y2)
831 :FORI=1TOMX-1:X1=X(I):Y1=Y(I):X2=X(I+1):Y2=Y(I+1):GOSUB832:NEXT:RETURN:
832 :M=(Y2-Y1)/(X2-X1):E=Y1-M*X1:IFABS(X2-X1)>ABS(Y2-Y1)GOTO834
833 :FORY=Y1TOY2STEPSGN(Y2-Y1):X=INT((Y-E)/M):GOSUB835:NEXT:RETURN:
834 :FORX=X1TOX2STEPSGN(X2-X1):Y=INT(M*X+E):GOSUB835:NEXT:RETURN:
835 :B=XAND7:A=GR+Y+(YAND248)*39+X-B:POKEA,USR(A)ORB(B):RETURN:--SET PIXEL(X,Y)
838 :
850 :REM---GRAFIK-STRING(A$,ZZ,ZS,F)
851 POKE56334,.:POKE1,51:GOSUB852:POKE1,55:POKE56334,1:RETURN:
852 :H=256:POKE214,ZZ/40:POKE211,ZZ-INT(ZZ/40)*40:SYS58640:
853 :P=PEEK(209)+PEEK(210)*256:J=PEEK(211):PRINTA$;:FORI=JTOPEEK(211)-1
854 :A=PEEK(P+I):N=GR+ZZ*8:POKEBR+ZZ,F:ZZ=ZZ+1:A=ZS+A*8:A%=N/H:POKE53,N-A%*H
855 :POKE54,A%:A%=A/H:POKE782,A%:POKE781,A-A%*H:POKE780,8:SYS46728:NEXT:RETURN
859 :
860 :REM---GRAFIK DEMO
861 :GOSUB800:A$="[199]RAPHIKSCHIRM("+STR$(GR)+" )":ZS=53248+2*BL:F=1:GOSUB850
862 :MX=6:X(1)=10:Y(1)=100:X(2)=160:Y(2)=190:X(3)=310:Y(3)=100:X(4)=160:Y(4)=10
863 :X(5)=X(1):Y(5)=Y(1):X(6)=X(3):Y(6)=Y(3):GOSUB830:
865 :GOSUB52:GOSUB825:RETURN:
898 :
899 ====SUB-PRG===================
900 :REM---PRG-TASTENABFRAGE
901 :GOSUB910:REM---LIST
902 :POKE198,.:WAIT198,1:A=PEEK(631)::IFA=148THEN:GOSUB6:PRINT"[147]";:POKE214,255
903 :GOSUB7:IFA=69ORA=148THEN:PRINTR$"	EDIT":SYS42107
904 :IFA=92ORA=83THEN:GOSUB940:ON-(F<>.)GOTO902:ON1-(A=83)GOSUB8,930:GOTO902:
905 :IFA=68THEN:GOSUB960:GOTO902:---LINESAVE/DRUCK
906 :IFA=86THEN:PRINT"[147]":GOSUB947:A$="$":PRINT:ON-(F=.)GOSUB951:GOSUB50
907 :RETURN:
908 :
909 :
910 :REM---PRG-LISTER(A,E)
911 :POKE214,PEEK(214)-1AND255
912 :POKE157,128:GOSUB913:POKE22,25:POKE157,.:POKE212,.:SYS58451:RETURN:
913 :POKE211,.:POKE210,2:POKE209,.:PRINT"[146][204][201][211][212]"ABS(A)"[157]-"ABS(E)"[157]@";
914 :POKE22,25-(A<.)*10:POKE768,212:POKE769,168:POKE781,255:POKE782,1:SYS42118:
915 :
916 :REM---LIST-DEMO
917 :A=-5000:E=5003:GOSUB910:RETURN:
918 :
919 :
930 N$=CHR$(0):REM----SAVE LINES(N$,A,E)
931 :POKE781,0:SYS59903:POKE213,39:A$="":INPUT"ZEILEN-SAVE(NAME,A,E)";A$,A,E
932 :GOSUB940:IF(A*E=.ORF<>.ORA$="")THEN:RETURN
933 :X=A:GOSUB936:A=AD:X=E+1:GOSUB938:E=AD-1::OPEN1,8,1,"@0:"+A$+",PRG,W"
934 :PRINT#1,"
";:FORI=ATOE:PRINT#1,CHR$(PEEK(I));:NEXT:PRINT#1,N$N$;:CLOSE1
935 :A=.:RETURN:REM---FIND LINE(X)
936 :DEFFNP(I)=PEEK(I)+PEEK(I+1)*256:
937 AD=FNP(61)+1:Z=FNP(AD+2):IFX<ZTHEN:AD=43:
938 :FORZ=.TOX:AD=FNP(AD):Z=FNP(AD+2):PRINTZ"[145]":NEXT:Z=Z-1:RETURN:
939 :
940 B$="$":REM---DISK-CHECK+FREI-BLOCKS
941 :GOSUB946:CLOSE1:POKE768,61:OPEN1,8,.,B$:CLOSE1:IFST<>.GOTO945:--AN/AUS
942 GOSUB946:OPEN1,8,15:ON-(ST<>.)GOTO945:INPUT#1,F,F$:CLOSE1:IFFGOTO945:FEHLER
943 :OPEN1,8,15,"I":PRINT#1,"M-R"CHR$(250)"":GET#1,C$,B$,B$:CLOSE1:N$=CHR$(0)
944 :FD=ASC(C$+N$)+ASC(B$+N$)*256:
945 :POKE768,139:CLOSE1:RETURN:
946 :F$="DRIVE OFF":FD=.:F=99:RETURN:
947 GOSUB940:POKE19,1:PRINT"DISK: "F$TAB(22)"FREI:"FD"[157] BL ":POKE19,.:RETURN
949 :
950 A$="$0:*=PRG":REM--DISK-VERZEICHNIS
951 :CLOSE1:OPEN1,8,.,A$:POKE781,1:SYS65478:N$=CHR$(.):GETA$,A$,A$,A$:A=13
953 GETA$,B$:A$=STR$(ASC(A$+N$)+ASC(B$+N$)*256)
955 :ON-(PEEK(197)+PEEK(653)<>64)GOTO955:IFSTTHEN:SYS65484:CLOSE1:RETURN
956 :PRINTMID$(A$,2)" ";:FORI=.TOA:GETA$,B$:PRINTA$B$;:NEXT:PRINT:A=14:GOTO953
957 :
958 :
960 :REM---SCHIRM AUF DRUCKER
961 :GOSUB965:OPEN1,4:PRINT#1,CHR$(27)CHR$(.);:IF(ST)GOTO965:
962 :PRINT"";:OPEN2,3:
963 :FORJ=.TOPEEK(213):POKE212,.:GET#2,A$:PRINT#1,A$;:NEXT:
964 :IF(PEEK(214)<24)GOTO963
965 :CLOSE1:CLOSE2:RETURN:
968 :
969 :
970 :REM---VIDEO-MODUS(VM=0-5,VS=0-3,B)
971 :VM=0:VS=3:B=1:ZF=1:F0=6:F1=6:Y=3:X=0:GOSUB973:GOSUB976:GOSUB974:REM--RESET
972 ::B=-(B<>.):POKE53265,(PEEK(53265)AND239)ORB*16:B=1-B:RETURN:-SCHIRN AN/AUS
973 ::P=53265:POKEP,PEEK(P)AND248ORY:P=P+5:POKEP,PEEK(P)AND248ORX:RETURN:--ROLL
974 ::POKE53282,F2:POKE53283,F3:POKE53284,F4:POKE53281,F1:POKE53280,F0:REM-FARB
975 :POKE646,ZF:RETURN:---ZEICHENFARBE
976 ::M=VM:S=VSAND3:A=53265:POKEA,(PEEK(A)AND151)+(MAND2)*32+(MAND4)*8-(S>1)*8:
977 :A=A+5:POKEA,(PEEK(A)AND231)+(MAND1)*16+(SAND1)*8:B=1:RETURN:---MODUS(0-5)
998 :
999 :
1000 :REM========================
1001 :REM   TEXT: EINFUEHRUNG
1002 :REM========================
1003 :PRINT"[147][197]INFUEHRUNG:":A=-1012:E=1035:GOSUB900
1004 :PRINT"[147][196]AS ERSTE [208]ROGRAMM:[146]  [196]EMO([198]1)"
1005 :A=-1040:E=1059:GOSUB900:IFA<>133GOTO1007
1006 :PRINT"[208]ROGRAMMKOPF:":A=0:E=8:GOSUB910:GOSUB55:GOTO1004
1007 :PRINT"[147][198]EHLERMELDUNGEN:"
1008 :A=-1060:E=1082:GOSUB900:
1009 :RETURN:
1011 :
1012 "[200]ALLO UND WILLKOMMEN 64'ER [198]ANS.
1014 "(null)IT DIESEM PEEKASIC-(null)URS FUER VALINSTEIGER
1015 "WILL ICH HIER DIE [205]OEGLICHKEITEN DER
1016 "(null)ROGRAMMIERUNG IN PEEKASIC AUFZEIGEN.
1017 :
1018 "[211]ICHER, [194]ASIC IST LANGSAMER ALS [193]S-
1019 "SEMBLER.(null)ROTZDEM GIBT ES EINE ASCUELLE
1020 "VON [205]OEGLICHKEITEN, [212]IPS UND [212]RICKS,
1021 "DIE DIESE (null)PRACHE INTERESSANT MACHEN.
1022 :
1023 "[218]EICHSATZ-, [211]PRITE-, [205]USIK-, [199]RAFIK-
1024 "ASCUNKTIONS- UND (null)PIELE-(null)ROGRAMMIERUNG
1025 "IST AUCH VON [194]ASIC AUS MOEGLICH.
1026 :
1027 "STR$URCH DIE (null)OEGLICKKEIT DES ATNUFRUFS
1028 "VON [194]ETRIEBSSYSTEMROUTINEN, KANN DAS
1029 "(null)TANDARD-PEEKASIC UM VIELE PEEKEFEHLE ER-
1030 "WEITERT UND VERBESSERT WERDEN.
1031 :
1032 "(null)IEL (null)PASS  BEIM  ATNUSPROBIEREN,
1033 "[210]UMTUEFTELN UND [194]ASTELN,
1034 "WUENSCHT VALUCH     (STR$IRK PEEKREITINGER)
1039 :::::::
1040 "[194]ASIC-[208]ROGRAMME GIBT MAN EIN, INDEM
1041 "MAN EINE (null)EILENNUMMER((null)AHL) GEFOLGT
1042 "VON [194]ASICBEFEHLEN EINGIBT UND DIESE
1043 "MIT DEM STR$RUCK DER <(null)VAL(null)(null)(null)(null)>-(null)ASTE
1044 "ABSCHLIESST.                           :
1045 "VALINZELNE PEEKEFEHLE WERDEN DURCH DEN
1046 "[196]OPPELPUNKT VON EINANDER GETRENNT.      :
1047 "ASCAST ALLE PEEKEFEHLE KOENNEN BEI DER
1048 "[197]INGABE ABGEKUERZT WERDEN, WAS JEDOCH
1049 "NICHT IMMER RATSAM IST.
1050 "[193]BGEKUERZT WIRD, INDEM MAN DEN ERSTEN
1051 "ODER DIE ERSTEN BEIDEN PEEKUCHSTABEN
1052 "NORMAL UND DEN FOLGENDEN MIT DER
1053 "<(null)LEFT$RIGHT$ASC(null)>-(null)ASTE ZUSAMMEN EINGIBT.
1054 "[196]ER [208][210][201][206][212]-[194]EFEHL WIRD MIT EINEM <?>
1055 "ABGEKUERZT.
1056 :
1057 "[196]ER [211]TART ERFOLGT MIT <[210]UN>+[210]ETURN,
1058 "ATNBBRECHEN KANN MAN DAS (null)ROGRAMM MIT
1059 "<[211][212][207][208]>-[212]ASTE ODER MIT <[211][212][207][208]>-[210][197][211][212][207][210][197].
1060 "PEEKEIM (null)ESTEN TRETEN DANN VORAUS-
1061 "SICHTLICH VERSCHIEDENE [198]EHLER AUF.
1062 "STR$ABEI GILT: (null)EIN (null)ROGRAMM IST BESSER,
1063 "ALS ES GETESTET WURDE:
1064 "
1065 "A) [197]INGABE-[198]EHLER: [211][217][206][212][193][216] [197][210][210][207][210]
1066 "B) (null)ADE-ASCEHLER   : (null)(null)ATNSTR$ VAL(null)(null)(null)(null)
1067 "C) [199]ERAET-[193]US    : [196][197][214][201][195][197][160][206][207][212] [208][210][197][211][197][206][212]
1068 "D) (null)EILENNUMMER  : (null)(null)STR$VALASC' (null)(null)ATN(null)VAL(null)VAL(null)(null)
1069 "E) FALSCHER [215]ERT : [201][204][204][197][199][193][204] [209][213][193][206][212][201][212][217]
1070 "F) (null)AHL ZU GROSS : (null)(null)VAL(null)ASC(null)(null)(null) VAL(null)(null)(null)(null)
1071 "G) [203]EIN [211]PEICHER : [207][213][212][160][207][198] [205][197][205][207][210][217]
1072 "H) STR$IREKTEINGABE : RIGHT$(null)(null)VALCHR$ATN(null) STR$RIGHT$(null)VALLEN(null)
1073 "I) [198][207][210] FEHLT     : [206][197][216][212][160][215][201][212][200][207][213][212] [198][207][210]
1074 "J) CHR$ETEILT MIT 0 : STR$RIGHT$(null)RIGHT$(null)RIGHT$(null)(null)CLOSEPEEK(null)CLOSE(null)VAL(null)(null)
1075 "K) [199][207][211][213][194] FEHLT   : [210][197][212]. [215][201][212][200][207][213][212][160][199][207][211][213][194]
1076 "L) STR$ATEI OFFEN   : ASCRIGHT$(null)VALCLOSE(null)(null)VAL(null) VAL(null)(null)(null)(null)
1077 "M) [198]ELD-[201]NDEX    : [194][193][196][160][211][213][194][211][195][210][201][208][212]
1078 "N) ASCELD-(null)EUANLAGE: (null)VALSTR$RIGHT$(null)'STR$ ATN(null)(null)ATN(null)
1079 "...
1080 "PEEKEI ATNBBRUCH KANN DIE (null)EILE MIT LIST
1081 "GELISTET WERDEN UND DIE [214]ARIABLEN MIT
1082 "Z.PEEK. PRINT;VA: ANGEZEIGT WERDEN.
1098 :
1099 :
1100 :REM======================
1101 :REM   TEXT: GRUNDLAGEN
1102 :REM======================
1103 :
1104 :PRINT"[147] [199]RUNDLAGEN:"
1105 :A=-1112:E=1135:GOSUB900:RETURN:
1106 :
1111 :
1112 "[204][193][196][197][206] UND [211][208][197][201][195][200][197][210][206] VON [208]ROGRAMMEN:
1113 :[147]"NAME",8  :[171][171][171]AN BASIC[171]ANFANG
1114 :[147]"NAME",8,1:[171][171][171]M[198]HINEN[171]PROGRAMM
1115 :[148]"NAME",8  :[171][171][171]SPEICHERT BASIC[171]PRG
1116 :[148]"NAME",8,1:[171][171][171]M[198]HINEN[171]PROGRAMM
1117 :[149]"NAME",8:[171][171][171]VERGLEICH PRG[173]DATEI
1118 :[147]"NAME":::::[171][171][171]LADEN V[145] KASSETTE
1119 :
1120 "(null)(null)ATN(null)(null)VAL(null) VON PEEKASIC-(null)ROGRAMMEN:"
1121 :[138]:
1122 :
1123 "(null)RIGHT$(null)(null)VAL(null) VON PEEKASIC-(null)ROGRAMM-(null)EILEN:
1124 :LIST 100    :ZEILE 100 LISTEN
1125 :LIST -100   :BIS ZEILE 100 LISTEN
1126 :LIST 100-   :AB  ZEILE 100 LISTEN
1127 :LIST 100-110:ZEILE 100 BIS 110 LISTEN
1128 :
1129 "[196]IE [195][212][210][204]-[212]ASTE VERZOEGERT DAS [204]ISTEN,
1130 "DIE (null)(null)(null)(null)-(null)ASTE BRICHT ES AB.
1131 :
1132 :NEW:--- NEU-BEFEHL,LOESCHT PROGRAMM
1133 :CLR:--- LOESCHT PROGRAMM-VARIABLEN
1197 :
1198 :
1199 :
1200 :REM==========================
1201 :REM TEXT: AUSGABE MIT PRINT
1202 :REM==========================
1203 :
1204 :PRINT"[147] [193]USGEBEN MIT PRINT:[146]  [196]EMO(F1)"
1205 :A=-1211:E=1235:GOSUB900:IFA<>133GOTO1207:
1206 :PRINTL$"FELD:":GOSUB602:GOSUB1222:GOSUB55:GOTO1200
1207 :GOTO1240:
1210 "
1211 "(null)IT DEM (null)(null)RIGHT$(null)(null)-PEEKEFEHL WERDEN (null)ARIABLEN
1212 "AUF DEN [194]ILDSCHIRM AUSGEGEBEN.
1214 "A) (null)YP (null)EICHENKETTE: PRINT"HALLO"
1215 "B) [212]YP [206]UMMERISCH  : PRINT A;B;3.1
1216 "C) (null)YP CHR$ANZZAHL    : PRINT A%;B%;45
1217 "D) [212]YP [211]TRING      : PRINT A$
1218 "E) (null)YP ATNSCII(0-255): PRINT CHR$(147)
1219 "F) [212]YP [198]UNKTION    : PRINT FNP(43)
1220 "G) (null)YP B,C,D KANN ABER AUCH
1221 "   ALS [198]ELD DEFIERT WERDEN.
1222 ::[134] A$(20),B$(2,20),A(2,20)
1223 ::B(9)[178]1:A$(15)[178]"BB":B$(0,17)[178]"XX"
1224 ::[153] B(9),A$(15),B$(0,17):[142]
1225 :
1226 "STR$IE ATN(null)(null)CHR$ATNPEEKVAL-(null)(null)VAL(null)(null)VAL STEUERT MAN MIT
1227 " [203]OMMA,[211]EMIKOLON,[212]AB() ODER [211]PC().
1228 :[153],A;[163]22);B;[166]10)"ATNATNATN":
1229 :[151]214,Y:[153]"ON"[163]X)"PEEKPEEKPEEK":
1230 :
1231 "(null)VALRIGHT$LENLEFT$VAL(null) (null)(null)VAL(null)LENLEFT$VAL(null) MIT (null)AB() & (null)(null)LEN():
1232 :POKE19,1:PRINTSPC(L):POKE19,.:RETURN:
1233 :POKE19,1:PRINTTAB(40):POKE19,.:RETURN
1239 :
1240 :
1244 :PRINT"[147] [211]TEUERZEICHEN BEI PRINT:":A=-1251:E=1272:GOSUB900
1245 :PRINT"[147] [193]USGABE MIT LIST:[146]  [196]EMO([198]1)":A=910:E=917:GOSUB900:PRINT""
1246 :IFA=133THEN:GOSUB916:GOSUB55:GOTO1245:
1247 :RETURN:
1250 "
1251 "(null)YP (null)EICHENKETTE KANN AUCH NOCH VER-
1252 "SCHIEDENE [211]TEUERZEICHEN ENTHALTEN:
1253 :
1254 "A) ASCATN(null)PEEK-(null)TEUERZEICHEN:(16 ASCARBEN)
1255 "   [197]INGABE: [195]TRL/[195]BM+(1-8)
1256 :
1257 :[153]"STOPOPENCLRSYS:FORVERIFYDEFPOKEPRINT#PRINTCONTLIST"
1258 :
1259 "B) LEN(null)(null)(null)(null)(null)-(null)TEUERZEICHEN:
1260 "   [197]INGABE: [195]URSORTASTEN ODER [200]OME
1261 :
1262 :[153]"ONCMD":[143]--- HOCH/RUNTER/R./L.
1263 :[153]"LOAD"[170][199](147):[143]--SCHIRM-LOESCH
1264 :[153][199](20)[170][199](148):[143]-DEL,INST
1265 :[153][199](13)[170][199](141):[143]-ZEILE VOR
1266 :
1267 "C) (null)VALRIGHT$LENLEFT$VAL(null)(null)ATN(null)(null)-(null)TEUERZEICHEN
1268 "   [197]INGABE: [195]TRL+9+0+N+SH-N+I+H
1269 :
1270 :[153]"WAIT":[143] INVERS/NORMAL
1271 :[153]"RETURN":[143] ZEICHENSATZ 1/2
1272 :[153]"	":[143] UMSCHALTUNG EIN/AUS
1273 "
1297 :
1298 :
1299 :
1300 :REM========================
1301 :REM TEXT: EINGABEN MACHEN
1302 :REM========================
1303 :PRINT"[147] [197]INGABEN MACHEN:[146]  [196]EMO(F1)"
1304 :A=-1311:E=1328:GOSUB910:A=90:E=92:GOSUB900:IFA<>133GOTO1306
1305 :PRINTL$;:A$="":GOSUB1321:PRINT"ZEILE:";:GOSUB90:GOSUB55:GOTO1300
1306 :PRINT"[147] [197]INGABEN MACHEN:[146]  [196]EMO([198]1)":A=70:E=79:GOSUB900:
1307 IFA=133THEN:PRINT"[145]"L$"ZEILE:";:GOSUB70:PRINT""A$:GOSUB55:GOTO1306
1308 :PRINT"[147] [197]INGABEN MACHEN:[146]  [196]EMO([198]1)":A=-1330:E=A:GOSUB910
1309 :A=80:E=88:GOSUB900:IFA=133THEN:PRINTL$TAB(10);:A$="":GOSUB88:GOTO1308
1310 :RETURN:
1311 "[205]AN UNTERSCHEIDET VERSCHIEDENE
1312 "VALINGABEFAELLE:
1313 "
1314 "A) (null)ATN(null)(null)ATN(null)(null)(null)-VALINGABEN:
1315 :POKE649,1:REM---PUFFER BESCHRAENKEN
1316 :POKE198,.:REM---TASTENPUFFER LOESCHEN
1317 :WAIT198,1:GETA$::PRINTA$:
1318 :WAIT198,1:SYS61758:A=PEEK(780):PRINTA
1319 :
1320 "B) [218][197][201][195][200][197][206][203][197][212][212][197][206]/[218][193][200][204][197][206]-[197]INGABEN:
1321 :[133]"VALINGABE:";A$::[153]A$
1322 :[133]"(null)OMMAZAHL:";A:::[153]A
1323 :[133]"CHR$ANZZAHL:";A%::[153]A%
1324 :[153]"VALIN(A,B,C):";:[133]A,B,C:
1325 :[153]A,B,C:[142]:
1326 :[151]213,L:[142]:[171][171][171][171]ZEI[195]LAENGE
1327 :
1328 "C) RIGHT$(null)(null)(null)(null)CLOSE(null)RIGHT$(null) (null)(null)(null)STR$VAL(null)(null)VALRIGHT$LENLEFT$VAL(null)
1329 :
1330 "D) [202][207][217][211][212][201][195][203] UND [212][193][211][212][197][206]-[193][194][198][210][193][199][197]
1333 "
1400 :REM=======================
1401 :REM   TEXT: DATEN ABLEGEN
1402 :REM=======================
1403 :
1404 :PRINT"[147] [196]ATEN-[194]EHANDLUNG[146]  [196]EMO([198]1)"
1405 :A=-1411:E=1420:GOSUB910:A=60:E=68:GOSUB900:IFA<>133THEN:RETURN
1406 :PRINTL$"LESE:";:GOSUB67:GOSUB55:GOTO1400:
1407 :
1410 "
1411 "CHR$ROESSERE STR$ATENMENGEN KOENNEN IN
1412 "[196][193][212][193]-[218]EILEN ABGELEGT UND MIT [210][197][211][212][207][210][197]
1413 "UND (null)VALATNSTR$-PEEKEFEHL GELESEN WERDEN:
1414 :
1415 :RESTORE:READ A$,A::DATA"HAUS",255
1416 :PRINT A$,A
1417 :
1418 "[198]OLGENDES [204]ISTING ERLAUBT DEN [218]UGRIFF
1419 "AUF EINZELNE STR$ATN(null)ATN-(null)VALRIGHT$(null)VAL(null)/PEEKEFEHLE.
1420 :
1434 :
1500 :REM==========================
1501 :REM TEXT: STRING OPERATIONEN
1502 :REM==========================
1503 :PRINT"[147] [211]TRING-[207]PERATIONEN:[146]  [196]EMO(F1)":A=-1512:E=1530:GOSUB910
1504 :A=600:E=A+3:GOSUB900:ON-(A<>133)GOTO1506:PRINTL$;
1505 GOSUB1525:A$="*":L=200:GOSUB600:PRINT"[211][212][210]-[199][197][206]"L:PRINTA$;:GOSUB55:GOTO1500
1506 :PRINT"[147] [211]TRING-[207]PERATIONEN:[146]  [196]EMO(F1,F3)":A=610:E=627:GOSUB900
1507 :IFA=133THEN:PRINTL$;:GOSUB625:GOSUB50:GOTO1506:
1508 :IFA=134THEN:PRINTL$;:GOTO627
1509 :RETURN
1510 :
1511 :
1512 :A$="[218]EICHEN"::B$="":REM---LEERSTRING
1514 :A=LEN(A$):REM---STRINGLAENGE(0-255)
1515 :A=ASC(A$):A=ASC("A"):---ASCII-CODE
1516 :A$=STR$(A):REM---ZAHL IN STRING
1517 :A=VAL(A$):REM---STRING IN ZAHL
1518 :PRINTTI,TI$:TI$="000000":REM---ZEIT
1519 :
1520 "[214][197][210][194][201][206][196][197][206] VON [211]TRINGS MIT '+'
1521 :A$[178]"(null)TRING 1":B$[178]"(null)TRING 2":
1522 :C$[178]A$[170]"-"[170]"B$+CHR$(13)::PRINT C$
1524 "[212][197][201][204][211][212][210][201][206][199] LESEN: LEFT$,RIGHT$,MID$
1525 :A$[178]"HALLO ECHO":
1526 :B$[178][200](A$,5)::[153] B$:
1527 :C$[178][201](A$,4):[153] C$:
1528 :D$[178][202](A$,2):::[153] D$:
1529 :E$[178][202](A$,5,5):[153] E$:::[142]
1530 :
1599 :
1600 :[143]============================
1601 :[143] TEXT: NUMMERISCHE RECHNUNG
1602 :[143]============================
1603 :[153]"LOAD (null)UMMERISCHE (null)ECHNUNG:WAIT  STR$EMO(F1)":A[178][171]1611:E[178]1632:[141]900
1604 :[139]A[178]133[167]:[153]L$;:[141]1624:[141]55:[137]1600:
1605 :[153]"LOAD ASCUNKTIONEN:"
1606 :A[178][171]1640:E[178]1660:[141]911:A[178]20:E[178]42:[141]900:
1607 :[153]"LOAD ASCUNKTIONEN:"
1608 :A[178]44:E[178]48:[141]910:[153]:A[178]3960:E[178]3975:[141]900:[142]:
1609 :
1610 "
1611 "[199][210][213][206][196]-[210][197][195][200][197][206][193][210][212][197][206]:
1612 :A[178]1[170]2[171]3[172]4[173]5 :[143] PLUS,MINUS,MAL,DURCH
1613 :B[178]2[174]3[170][186](4):[143] HOCH,QUADRATWURZEL
1614 :C[178][187]([171]TI):C[178][187](1):[143] ZUFALLSZAHL
1615 :
1616 "(null)RIGHT$(null)(null)VAL(null)-ASC(null)(null)(null)(null)RIGHT$(null)(null)VAL(null)
1617 "(SINUS,COSINUS,TANGENS,ARCUSTANGENS)
1618 :W[178]60:B[178]W[173]180[172][255]
1619 :A[178][191](B)[170][190](B)[170][192](B)[170][193](B)
1620 "VAL(null)(null)(null)(null)VAL(null)(null)RIGHT$ATN(null)-(null)(null)CHR$VAL(null)RIGHT$(null)LEFT$(null)(null)(null)(PEEKASIS E)
1621 :A=EXP(X)+LOG(X)+LOG(X)/LOG(10)
1622 :
1623 "[204][207][199][201][203] UND [218][193][200][204]-[207][208][197][210][193][212][201][207][206][197][206]
1624 :A[178]128:B[178]255
1625 :C[178]A [175] 128:[153]"U:"C :[143]---UND
1626 :C[178]A [176]  1  :[153]"O:"C :[143]---ODER
1627 :C[178][168](A)   :[153]"N:"C :[143]---NICHT
1628 :C[178][168](A)[175]255:[153] C :[143]---INVERT
1629 :C[178](A[176]B)[171](A[175]B):[153]C:[143]---A EOR B
1630 :C[178][180](A)   :[153]"V:"C:[143]-VORZEICHEN
1631 :C[178][181](3.1) :[153]"G:"C:[143]---GANZZAHL
1632 :C[178][182]([171]4)  :[153]"P:"C:[143]--POSITIV
1633 :[142]:
1640 "(null)IT STR$VALASCASC(null) KANN EINE ASCUNKTION DEFI-
1641 "NIERT WERDEN, DIE MIT A=[198][206]A(.) AUF-
1642 "GERUFEN WERDEN KANN.
1643 :
1698 :
1699 :
1700 :REM=========================
1701 :REM  TEXT: KANAL BEHANDLUNG
1702 :REM=========================
1703 :
1704 :PRINT"[147] [203]ANAL-[194]EHANDLUNG:[146] [196]EMO(F1)"
1705 :A=-1710:E=1731:GOSUB900:IFA<>133THEN:RETURN:
1706 :PRINTL$"DISK:":GOSUB940:IFFGOTO1700
1707 :A$="X2":B$="TEST OK":GOSUB1729:B$="":GOSUB1730:PRINTB$:GOSUB50:GOTO1700
1708 :GOSUB50:GOTO1700:
1709 :
1710 "[205]IT [207][208][197][206],[195][204][207][211][197],[199][197][212]#,[201][206][208][213][212]#,[208][210][201][206][212]#
1711 "KANN MAN DIE CHR$ERAETE DES LEN64 LESEN,
1712 "BESCHREIBEN ODER STEUERN.
1713 "CHR$VAL(null)ATNVAL(null)VAL(null)(null)(null)(null)VAL(null)(null) 0:(null)ASTATUR, 1:(null)ASSETTE
1714 "3:[211]CHIRM, 4/5 [196]RUCKER  :8/9 [196]ISKETTE
1715 "(null)ATN(null)RIGHT$ATNPEEK(null)VAL (null)(null) ZEIGT DEN CHR$VAL(null)ATNVAL(null)VAL(null)(null)ATN(null)(null)(null).
1716 :
1717 "[212][193][211][212][193][212][213][210] [204][197][211][197][206]:
1718 :[159]1,0:[146]198,1:[161]#1,A$:[160]1
1719 :[159]1,0:[132]1,A$:[160]1
1721 "(null)LENLEFT$RIGHT$(null)(null) (null)VAL(null)VAL(null):
1722 :OPEN1,3:INPUT#1,A$,C:CLOSE1:
1723 :
1724 "[204][201][211][212][201][206][199] AUF [196][210][213][195][203][197][210]:
1725 :[159]1,4:[152]1,"STR$RUCK:":[157]1:[155][171]10
1726 :[152]1;:[160]1
1727 :
1728 "STR$RIGHT$(null)(null)VAL(null)(null)VAL BESCHREIBEN/LESEN(A$,B$)
1729 :OPEN1,8,1,"@0:"+A$+",PRG,W":PRINT#1,B$:CLOSE1:RETURN:
1730 :OPEN1,8,.,A$+",PRG,R":INPUT#1,B$:CLOSE1:RETURN:
1732 :
1733 "
1800 :[143]============================
1801 :[143] TEXT: SPEICHER OPERATIONEN
1802 :[143]============================
1803 :[153]"LOAD (null)PEICHER (null)PERATIONEN:WAIT  STR$EMO(F1)":A[178][171]1811:E[178]1831:[141]900
1804 :[139]A[178]133[167]:[141]1830:[141]55:[137]1800
1805 :[153]"LOAD PEEKIT (null)PERATIONEN:WAIT  STR$EMO(F1)":
1806 :A[178][171]1840:E[178]1842:[141]910:A[178]10:E[178]18:[141]910:A[178][171]1849:E[178]1854:[141]900
1807 :[139]A[178]133[167]:A[178]255:[153]L$"A="A",BIN:";:[141]10:[141]55:[137]1805
1808 :[153]"LOAD (null)IDEO-(null)ODUS:WAIT  STR$EMO(F1)":A[178]970:E[178]977:[141]910:[153]
1809 :A[178]1860:E[178]A[170]4:[141]900:[139]A[179][177]133[167]:[142]:
1810 :[141]1860:[151]214,17:[137]1809:
1811 "(null)IT DEM (null)(null)(null)VAL, (null)VALVAL(null)() UND (null)(null)(null)-PEEKEFEHL
1812 "KANN DER [211]PEICHER BESCHRIEBEN,GELESEN
1813 "ODER AUSGEFUEHRT WERDEN.
1814 :
1815 :POKE53280,6 :REM---RAHMENFARBE
1816 :POKE53281,8 :REM---SCHIRMFARBE
1817 :POKE646,1   :REM---ZEICHENFARBE
1818 :SYS58692    :REM---SCHIRM LOESCHEN
1819 :POKE788,52:POKE792,193:REM--STOP-AUS
1820 :
1821 "[195][213][210][211][207][210]-[208][207][211][201][212][201][207][206] HOLEN/SETZEN
1822 :X[178][194](211):Y[178][194](214):[143]-HOL
1823 :[151]211,X:[151]214,Y:[158]58640:[143]-SETZ
1824 :[151]213,40:[153]"*";:[143]---ROLLEN AUS
1825 :[129]I[178]217[164]242:[151]I,[194](I)[176]128:[130]:[142]:[171][171][171]SCHIRM INIT
1826 :
1827 "(null)PEICHERSTELLE 780-783 DIENEN ALS
1828 "[210][197][199][201][211][212][197][210] BEI [211][217][211]-[193][213][198][210][213][198][197][206]:
1829 :[151]781,4:[158]59903:[143] LOESCH ZEILE 4
1830 :[151]781,10:[158]58720:[143] LOESCH BIS 10
1831 :[151]781,16:[158]58794:[143] SPRITE-RESET
1832 :[142]:
1833 "
1840 "[205]IT [207][210],[193][206][196] UND [206][207][212] WERDEN [194]ITS GE-
1841 "SETZT, GELOESCHT ODER UMGEDREHT:
1842 :
1849 :
1850 :P=53265:I=4:GOSUB17:REM--SCHIRM AUS
1851 :P=53265:I=4:GOSUB15:REM--SCHIRM EIN
1852 :P=53265:I=6:GOSUB15:REM--HG-FARBMODUS
1853 :P=53265:I=5:GOSUB15:REM--GRAFIK MODUS
1854 :P=53270:I=4:GOSUB15:REM--MULTI-COLOR
1855 :
1856 :B=128:REM---BINAERZAHL AUSGEBEN(A)
1857 :FORI=.TO7:PRINTCHR$(48-((AANDB)>.));:B=B/2:NEXT:RETURN
1858 :
1859 :
1860 :ZF=1:REM----DEMO:
1861 :F0=PEEK(53280):F1=PEEK(53281):K=300:FORI=.TO22:GOSUB974:A=F0:F0=F1:F1=A:
1862 :GOSUB1864:NEXT:
1863 :K=256:B=1:FORI=1TO40:GOSUB972:K=K/2:GOSUB1864:NEXT:B=1:GOSUB972:RETURN:
1864 :FORJ=KTO.STEP-1:NEXT:RETURN:-WART
1898 :
1899 :
1900 :REM=========================
1901 :REM TEXT: PROGRAMM-STRUKTUR
1902 :REM=========================
1903 :
1904 :PRINT"[147] [208][210][207][199][210][193][205][205]-[211][212][210][213][203][212][213][210][197][206]:"::A=-1910:E=1933:GOSUB900:
1905 :PRINT"[147] [211][195][200][204][197][201][198][197][206]-[194][201][204][196][213][206][199]:[146]  [196]EMO(F1)":A=-1953:E=A:GOSUB910
1906 :A=56:E=59:GOSUB910:PRINT:A=-1940:E=A:GOSUB910:A=1941:E=1942:GOSUB910
1907 :A=-1944:E=1945:GOSUB910:A=1946:E=1948:GOSUB900
1908 :IFA=133THEN:PRINTL$"[211]CHLEIFEN:":GOSUB1946:GOSUB55:GOTO1905
1909 :RETURN:
1910 "[196]ER [210][197][205]-[194]EFEHL FUER DIE [213]EBERSICHT:
1911 :[143]--"(null)NTERPROGRAMMKOPF/(null)OMMENTAR"
1912 :
1913 "(null)(null)(null)(null)VAL(null)CHR$VAL:
1914 :RUN  1000:REM---STARTET PRG AB 1000
1915 :GOTO 1000:REM---GEHE NACH ZEILE 1000
1916 :GOSUB1000:REM---UNTERPROGRAMM-AUFRUF
1917 :RETURN::::RUECKSPRUNG VOM UNTER-PROG.
1918 :
1919 "[214][197][210][218][215][197][201][199][213][206][199] NACH [194][197][196][201][206][199][213][206][199]:
1920 :[139] A[178]1 [167]:[153] A
1921 :[139] A[178]2 [137]1000:[171][171][171]WENN A[178]2,GEH 1000
1922 :[145][171](A[178]2)[137]1000::[153]A
1923 :[145][171](A[178]3)[141]1000:[153]A
1924 :
1925 "(null)VAL(null)(null)(null)VALRIGHT$CHR$(null)(null)CHR$VAL(null) MIT (null)ATNPEEKVAL(null)(null)VAL:
1926 :ON(A)GOTO1000,1010,1020,1030:
1927 :ON(A)GOSUB1000,1200,1300:
1928 :ON1-(A=5)GOTO1200,1300
1930 :
1931 "[194][197][197][206][196][197][206][160]VON [208]ROGRAMMEN: [197][206][196]/[210][197][211][197][212]
1932 :[128]:[144]:[158]42107:[143]---END
1933 :[158]58260:[158]64738:[143]---RESET
1939 :
1940 "(null)LENLEFT$(null)VALRIGHT$ASCVAL(null) MIT CHR$(null)(null)(null):
1941 :GETA$:IFA$=""GOTO1941:REM--TASTE
1942 :RETURN:
1943 :
1944 :
1945 "[211][195][200][204][197][201][198][197][206] MIT [198][207][210].[212][207].[211][212][197][208]:[206][197][216][212]:
1946 :[129]A[178]1[164]10:[153]A;:[130]:[153]
1947 :[129]A[178]10[164]1 [169][171]1:[153]A;:[130]:[153]
1948 :[129]A[178]1[164]5  [169].5:[153]A;:[130]:[153]
1949 :
1950 :[142]:
1952 :
1953 "CHR$(null)(null)(null)-(null)ATN(null)RIGHT$ATN(null)(null)VAL(null)(X,ADRESSE,ANFANG)
1997 :
1998 :
1999 :
3000 :REM==========================
3001 :REM TEXT: DISKETTEN-LAUFWERK
3002 :REM==========================
3003 :PRINT"[147][196]ISK-[204]AUFWERK:[146]  [196]EMO([198]1)"
3004 :A=-3010:E=3026:GOSUB910:A=950:E=956:GOSUB900
3005 :IFA=133THEN:PRINT"[147]";::GOSUB940:ON-(F=0)GOSUB950:GOSUB55:GOTO3000
3006 :PRINT"[147][196]ISK-[204]AUFWERK:[146]  [196]EMO([198]1)"
3007 :A=940:E=947:GOSUB901
3008 :IFA=133THEN:PRINT"[147]";:GOSUB947:GOSUB55:GOTO3006
3009 :RETURN:
3010 "[205]IT DEM [196]ISK-[204]AUFWERK KANN MAN [196]ATEN
3011 "LADEN UND SPEICHERN.
3012 "[205]AN UNTERSCHEIDET DIE [196]ATEITYPEN
3014 "(null)(null)CHR$-(null)ROGRAMM, (null)VAL(null)-(null)EQUENZIELL,
3015 "[213][211][210]-[213]SER UND [210][197][204]-[210]ELATIV.
3016 "* = ATNBKUERZUNG   ? = VALRSATZZEICHEN
3019 :
3020 "[196][201][211][203]-[207][208][197][210][193][212][201][207][206][197][206]
3021 :[159]1,8,15,"R:NEU=NAME":[171][171][171]UMBENENNEN
3022 :[159]1,8,15,"S:NAME":::::[171][171][171]LOESCHEN
3023 :[159]1,8,15,"C:NAME2=NAME":[171][171][171]KOPIEREN
3024 :[159]1,8,15,"N:NAME,12":[171][171][171][129]MATIEREN
3025 :[159]1,8,15,"V":::::[171][171][171]DISK AUFRAEUMEN
3026 :
3098 :
3099 :
3100 :[143]========================
3101 :[143] TEXT: LADEN/SPEICHERN
3102 :[143]========================
3103 :[153]"LOAD(null)ADEN UND (null)PEICHERN:WAIT  STR$EMO(F1)"
3104 :A[178][171]3110:E[178]3112:[141]910:A[178]700:E[178]719:[141]910:A[178]9998:E[178]A[170]1:[141]900
3105 :[139]A[178]133[167]:[141]940:[145]1[171](F[177].)[137]730,3103
3106 :[153]"LOAD(null)TRINGS LADEN:WAIT  STR$EMO(ASC1)"
3107 :A[178]750:E[178]771:[141]900:[139]A[179][177]133[167]:[142]:
3108 :[141]940::[145][171](F[177].)[137]3106:[141]760:[153],A$,B$:[141]50:[137]3106
3109 :
3110 "ASCOLGENDE (null)ISTINGS LADEN UND SPEICHERN
3111 "[211]PEICHERBLOECKE, [194]ASIC-[195]ODE UND [196]ATAS
3112 :
3125 :
3200 :[143]=====================
3201 :[143]  TEXT: ZEICHENSATZ
3202 :[143]=====================
3203 :[153]"LOAD(null)EICHENSATZ:WAIT  STR$EMO(F1)"
3204 :A[178][171]3210:E[178]3213:[141]911:A[178]300:E[178]324:[141]910:[141]55:[139]A[179][177]133[137]3207
3205 :[141]301:[153]"LOADZEICHSATZ-DEMO:":C[178][165]C(.):[129]I[178].[164]255:[151]C[170]I,I:[130]
3206 :[141]55:[141]352:[137]3200
3207 :[153]"LOADVALINSTELLUNGEN:"
3208 A[178]330:E[178]355:[141]900:[142]:
3209 :
3210 "ASCOLGENDES (null)ISTING ERLAUBT DAS ATNENDERN
3211 "VON [194][197][212][210][201][197][194][211][211][217][211][212][197][205] UND [218][197][201][195][200][197][206][211][193][212][218]:
3212 :
3298 :
3299 :
3300 :[143]==================
3301 :[143]  TEXT: GRAPHIK
3302 :[143]==================
3303 :
3304 :[153]"LOADCHR$RAPHIK:WAIT  STR$EMO(F1)"
3305 :A[178]800:E[178]825:T[178]0:[141]901:[139]A[178]133[167]:[141]860:[137]3300:
3306 :[153]"LOADCHR$RAPHIK:"
3307 :A[178]830:E[178]858:T[178]0:[141]901:[142]:
3309 :
3398 :
3399 :
3400 :[143]====================
3401 :[143]  TEXT: SORTIEREN
3402 :[143]====================
3403 :[153]"LOAD(null)ORTIEREN:WAIT  STR$EMO(F1)"
3404 :A[178]640:E[178]658:T[178]0:[141]901:
3405 :[139]A[178]133[167]:[153]"LOAD";:[151]198,.:[141]640:[141]650:[141]55:[137]3403
3406 :[153]"LOAD(null)ORTIEREN:WAIT  STR$EMO(F1)"
3407 :A[178]660:E[178]673:T[178]0:[141]901:      :
3408 :[139]A[178]133[167]:[153]"LOAD";:[151]198,.:[141]640:[141]660:[141]55:[137]3406:
3409 :[141]602:[142]:
3498 :
3499 :
3500 :[143]======================
3501 :[143]  TEXT: SCHIRM ROLLEN
3502 :[143]======================
3503 :[153]"LOAD(null)CHIRM ROLLEN:WAIT  STR$EMO(F1,F3)"
3504 :A[178]500:E[178]525:[141]900:
3505 :[139]A[178]133[167]:A[178]0:K[178][171]15:[141]500:A[178]0:K[178]15:[141]500:[141]55:[137]3500
3506 :[139]A[178]134[167]:A[178]0:E[178]24:K[178][171]15:[141]520:K[178]15:[141]521:[141]55:[137]3500
3507 :[142]:
3509 :
3598 :
3599 :
3600 :[143]=================
3601 :[143] :TEXT: SPRITES
3602 :[143]=================
3603 :[153]"LOAD(null)PRITES:"
3604 :A[178]200:E[178]218:[141]900:
3605 :[153]"LOAD(null)PRITES:"
3606 :A[178]220:E[178]243:[141]900
3607 :[153]"LOAD(null)PRITES:WAIT  STR$EMO(F1)"
3608 :A[178]250:E[178]274:[141]900:[139]A[178]133[167]:[153]"LOADJOY+SPRITE":[141]250:[137]3607
3609 :[142]:
3698 :
3699 :
3700 :[143]========================
3701 :[143] :TEXT: SOUND UND MUSIK
3702 :[143]========================
3704 :[153]"LOAD(null)ON-ATNUSGABE:"
3705 :A[178][171]150:E[178]166:[141]900:
3706 :[153]"LOAD(null)ON-ATNUSGABE:WAIT  STR$EMO(F1)"
3707 :A[178]100:E[178]125:[141]900:[139]A[178]133[167]:[141]120:[137]3706:
3709 :[142]:
3798 :
3799 :
3800 :[143]==================
3801 :[143] :TEXT: KOPIEREN
3802 :[143]==================
3803 ::[153]"LOAD(null)OPIEREN:WAIT  STR$EMO(ASC1)"
3804 :A[178][171]3820:E[178]3823:[141]911:A[178]400:E[178]419:[141]901:
3805 :[139]A[178]133[167]:A[178][165]BA(930):A$[178]"BEISPIEL-STRING":[141]404:[141]55:[137]3800
3806 ::[153]"LOAD(null)OPIEREN:WAIT  STR$EMO(ASC1)"
3807 :A[178]430:E[178]447:[141]900:
3808 :[139]A[178]133[167]:A[178]41000:E[178]A[170]959:N[178][165]BA(40):[141]430:[141]55:[137]3806
3809 :
3810 :[153]"LOAD(null)OPIEREN:WAIT  STR$EMO(F1)"
3811 :A[178][171]3830:E[178]3834:[141]911:A[178]450:E[178]462:[141]901:[139]A[179][177]133[167]:[142]:
3812 :[141]450:[153]"LOADPEEK(1)="[194](1)[163]20)"USR(1)="[183](1):[141]55:[137]3810
3813 :
3819 :
3820 "(null)IT (null)OPIERPROGRAMMEN KANN MAN
3821 "[211]PEICHERBEREICHE, [199]RAFIK ODER [218]EICHEN
3822 "VERSCHIEBEN, LOESCHEN ODER ROLLEN.
3823 "[211]OGAR EIN [194]ITMAP-[210]OLLEN WIRD MOEGLICH.
3824 :
3830 "(null)IT (null)ATN(null)-(null)(null)(null)(null)(null)CHR$ UND (null)ATN(null)-(null)VALVAL(null) KANN DER
3831 "[211]PEICHER UNTER DEM [194]ETRIEBSSTEM-[210][207][205],
3832 "Z.PEEK. ZUR CHR$RAFIK-(null)ROGRAMMIERUNG,
3833 "GENUTZT WERDEN.
3834 :
3899 :
3900 :[143]==========================
3901 :[143] TEXT: SPEICHER-BEREICHE
3902 :[143]==========================
3903 :[153]"LOADLEN64 (null)PEICHER-ATNUFBAU:"
3904 :A[178][171]3910:E[178]3931:[141]900:
3905 :[153]"LOAD(null)EIGER:WAIT  ATNNZEIGEN(F1)"
3906 :A[178][171]3940:E[178]3945:[141]910:A[178]3950:E[178]3974:[141]900:
3907 :[139]A[178]133[167]:[141]3980:[141]55:[137]3905:
3908 :[142]:
3909 :
3910 "0   - 255:    (null)VAL(null)(null)(null)ATNCHR$VAL
3911 "256 - 511:  [208][210][207][218][197][211][211][207][210][211][212][193][208][197][204]
3912 "511 - 600:  VALRIGHT$(null)CHR$ATNPEEKVAL(null)(null)ASCASCVAL(null)
3913 "601 - 819:  [212][193][194][197][204][204][197][206],[218][197][201][199][197][210],[214][197][203][212][207][210][197][206]
3914 "704 - 766:  (null)(null)(null)RIGHT$(null)VAL11 (FREI)
3915 "828 -1019:  [203][193][211][211][197][212][212][197][206][208][213][198][198][197][210](FREI)
3916 [171][171][171][171][171][171][171][171][171][171][171][171][171][171][171][171][171][171][171][171][171][171][171][171][171][171][171][171][171][171][171][171][171][171]
3917 "1024 - 2023: PEEKILDSCHIRM   (1KB)
3918 "2048 -40959: [208][210][207][199][193][205][205]-[210][193][205]  (38KB)
3919 "(null)VALRIGHT$LENLEFT$VAL(null)-(null)(null)(null): 4096-8191,36864-40959
3920 ----------------------------------
3921 "40960-49151: [194][193][211][201][195]-[210][207][205]    (8KB)
3922 "49152-53247: (null)PEEKVAL(null)VAL(null)-(null)ATN(null)   (4KB)
3923 "53248-57343: [218][197][201][195][200][197][206]-[210][207][205]  (4KB)
3924 "53248-53294: (null)RIGHT$LEN-(null)ATN(null)      (1KB)
3925 "54272-54300: [211][201][196]-[210][193][205]      (1KB)
3926 "55296-56295: ASCATN(null)PEEK-(null)ATN(null)     (1KB)
3927 "56320-57343: [195][201][193]1/[195][201][193]2    (1KB)
3928 "57334-65535: (null)VAL(null)(null)ATN(null)-(null)(null)(null)   (8KB)
3929 "--------------------------------
3930 "(null)RIGHT$LEN-PEEKATN(null)(null)0:00000  (null)RIGHT$LEN-PEEKATN(null)(null)2:32768
3931 "[214][201][195]-[194][193][206][203]1:16384  [214][201][195]-[194][193][206][203]3:49152
3932 "
3933 "
3940 "(null)EIGER VERWALTEN DIE VALIN-, ATNUSGABE,
3941 "[208]ROGRAMM UND [214]ARIABLENBEREICHE IM [195]64.
3948 :
3949 :
3950 [141]20:[143]---PROGRAMM-ZEIGER
3951 [150][165] PA(A)[178][165]P(43):[143]--PRG-ANF.
3952 [150][165] PE(A)[178][165]P(45):[143]--VARIABLEN
3953 [150][165] PF(A)[178][165]P(47):[143]--FELDER
3954 [150][165] PS(A)[178][165]P(49):[143]--STR.ANF.
3955 [150][165] PZ(A)[178][165]P(51):[143]-STR-ZEIGER
3956 [150][165] BE(A)[178][165]P(55):[143]--RAM-ENDE
3959 :
3960 [143]----SCHIRM/ZEICHENSATZ-ZEIGER
3961 [150][165] BA(A)[178]16384[172]([168]([194](56576))[175]3)[170]64[172]([194](53272)[175]240)[170]A
3962 [150][165] ZS(A)[178]16384[172]([168]([194](56576))[175]3)[170]1024[172]([194](53272)[175]14)[170]A[172]8
3963 [150][165] BR(A)[178][194](648)[172]256[170]A
3964 [150][165] FS(A)[178]55296[170]A
3970 [143]----BASIC PRG-ZEIGER,ZEILEN-NR
3971 [150][165] L(A)[178][165]P(61)[170]1
3972 [150][165] ZN(A)[178][165]P(57)
3973 [143]----FREIER STRING SPEICHER
3974 [150][165]FR(A)[178][184](.)[171]65537[172]([184](.)[179].)
3975 L$[178]"------"[170]R$:[142]:
3978 :
3980 :[143]----BEREICHE ZEIGEN:
3981 :[141]20:[153]"LOAD(null)EIGER-ATNNZEIGE:"
3982 :[153]"BASIC ANFANG-ENDE    :";[165]PA(.)"-"[165]BE(.)[171]1""
3983 :[153]"PROGRAMM ANFANG-ENDE :";[165]PA(.)"-"[165]PE(.)[171]1
3984 :[153]"VARIABLEN ANFANG-ENDE:";[165]PE(.)"-"[165]PF(.)[171]1
3985 :[153]"FELDER ANFANG-ENDE   :";[165]PF(.)"-"[165]PS(.)[171]1
3986 :[153]"STRING ANFANG-ENDE   :";[165]PS(.)"-"[165]BE(.)[171]1""
3987 :[153]"STRING ZEIGER/FREI   :";[165]PZ(.)" / "[165]FR(.)""
3990 :[153]"SICHT-SCHIRM   :"[165]BA(.)
3991 :[153]"AUSGABE-SCHIRM :"[165]BR(.)
3992 :[153]"FARB-SPEICHER  :"[165]FS(.)""
3993 :[153]"ZEICHENSATZ    :"[165]ZS(.)""
3994 :[153]"PROGRAMM-ZEILE :"[165]ZN(.)
3995 :[153]"PROGRAMM-ZEIGER:"[165]L(.)
3999 :[142]:
4998 :
4999 :
5000 :[143]========================
5002 :[143]  MENUE UND TEXTAUFRUF
5003 :[143]========================
5010 :[153]"LOAD"
5011 :[153]"TAN(null)TANWAITSTR$IRK PEEKREITINGERTAN(null)TANWAIT  ASCREI-(null)OFT(2002)"
5012 :[153]" EXCLUSIV FUER STR$ RIGHT$ CHR$ RIGHT$ (null) ATN (null)  (null) ATN (null) (null)"
5013 :
5014 :[151]214,18:[153]"ONCHR$EWITMET CHR$RUNDRECHT, ASCREIHEIT, (null)ERNUNFT,"
5015 :[153]"         LEFT$OEFLICHKEIT UND (null)UGEND."
5016 :[153]"(null)UR VALHRE VON (null)ROGRAMMIERERN UND ATNUTOREN."
5017 :[153]"(null)ND NATUERLICH FUER ALLE PEEKASIC ASCANS.";
5018 :
5020 :[141]50:[141]525:
5098 :
5099 :
5100 :[143]---SEITENAUFBAU MENUE1
5101 :A[178]6:[151]53281,A:[151]53280,A[170]1
5102 :[153]"LOADPEEKASIC-(null)URS:  CHR$RUNDLAGEN    WAIT"WL"":A[178]2
5110 :[153][163]A)"( 1 ) VALINFUEHRUNG"
5120 :[153][163]A)"( 2 ) CHR$RUNDLAGEN"
5130 :[153][163]A)"( 3 ) ATNUSGABE MIT (null)RINT
5140 :PRINTTAB(A)"( 4 ) [197]INGABEN MACHEN
5150 :[153][163]A)"( 5 ) STR$ATEN-PEEKEHANDLUNG
5160 :PRINTTAB(A)"( 6 ) [211]TRING-[207]PERATIONEN
5170 :[153][163]A)"( 7 ) (null)UMERISCHE (null)PERATIONEN
5180 :PRINTTAB(A)"( 8 ) [203]ANAL [194]EHANDLUNG
5190 :[153][163]A)"( 9 ) (null)PEICHER (null)PERATIONEN
5195 :PRINTTAB(A)"( 0 ) [208]ROGRAMM-[211]TRUKTUREN
5196 :[151]214,24:[153]"ON""STR$:STR$RUCK (null):(null)PEICHERN VAL:VALDIT"[163]28)">>>> WEITER";
5197 :[141]12:
5198 :
5199 :
5500 :[143]---TASTEN
5501 :[141]902:[139]A[178]95[167]:[138]:
5502 :[139]A[178]17[176]A[178]29[176]A[178]145[167]:WL[178]0:[141]602:[137]6000
5506 :
5507 ::[145][171](A[178]32)[137]5510:[139]A[178]13[167]:WL[178](WL[170]1)[172][171](WL[179]10):[137]5510
5508 :B[178]A[171]48:[139]B[179].[176]B[177]10[137]5100
5509 :WL[178]A[171]48:WL[178]WL[171](WL[178]0)[172]10:[139](WL[179].[176]WL[177]10)[167]:WL[178]0:[137]5100:
5510 :[139]WL[178]0[167]:WL[178]1
5511 :[145](WL)[141]1000,1100,1200,1300,1400,1500,1600,1700,1800,1900:[137]5100
5996 :
5997 :
5998 :
5999 :
6000 :[143]===MENUE 2=============
6001 :
6100 :[143]---SEITENAUFBAU MENUE2
6101 :[151]53281,12:[151]53280,7
6102 :[153]"LOADPEEKASIC-(null)URS: ASCORTGESCHRITTENE WAIT"WL"":A[178]2:
6110 :[153][163]A)"( 1 ) STR$ISK-(null)AUFWERK
6120 :PRINTTAB(A)"( 2 ) [204]ADEN UND [211]PEICHERN
6130 :[153][163]A)"( 3 ) (null)EICHENSATZ
6140 :PRINTTAB(A)"( 4 ) [199]RAPHIK
6150 :[153][163]A)"( 5 ) (null)ORTIEREN
6160 :PRINTTAB(A)"( 6 ) [211]CHIRM-[210]OLLEN
6170 :[153][163]A)"( 7 ) (null)PRITES
6180 :PRINTTAB(A)"( 8 ) [211]OUND UND [205]USIK
6190 :[153][163]A)"( 9 ) (null)OPIEREN
6195 :PRINTTAB(A)"( 0 ) [211]PEICHER-[194]EREICHE
6196 :[151]214,24:[153]"ON""STR$:STR$RUCK (null):(null)PEICHERN VAL:VALDIT"[163]28)">>>> WEITER";
6198 :
6199 :
6500 :[143]---TASTEN
6501 :[141]902
6506 :[139]A[178]145[176]A[178]17[176]A[178]29[167]:WL[178]0:[141]602:[137]5100
6507 :[145][171](A[178]32)[137]6510:[139]A[178]13[167]:WL[178](WL[170]1)[172][171](WL[179]10):[137]6510
6508 :B[178]A[171]48:[139]B[179].[176]B[177]10[137]5100:
6509 :WL[178]A[171]48:WL[178]WL[171](WL[178]0)[172]10:[145][171](WL[179].)[137]6500:
6510 :[139]WL[178].[167]:WL[178]1:[143]---AUFRUF
6511 :[145](WL)[141]3000,3100,3200,3300,3400,3500,3600,3700,3800,3900:[137]6100
9997 :
9998 [141]20:[143]----LETZTE ZEILE:
9999 A[178][165]P([165]P(61)[170]1):E[178][165]P(45):[142]:
10000 :BASIC[171]PRG AB 10000